ASSONOMETRIA ISOMETRICA DI UNA MOLLETA

L = 8 (slider from 0.1 to 8, step 0.1)
H = 2 (slider from 0.1 to 2, step 0.1)
P = 1.5 (slider from 0.1 to 1.5, step 0.1)
A = (-3, -1)
B = Point(Circle[A, L])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
d = Circle(A, P)
C = Intersect(d, b, 2)
e = OrthogonalLine(C, b)
D = Intersect(c, e)
f = Segment(C, A)
g = Segment(C, D)
h = Segment(D, B)
i = LineBisector(A, B)
E = Intersect(i, a)
F = Intersect(i, g)
j = Segment(F, E)
k = Circle(E, 1)
G = Intersect(k, a, 2)
l = OrthogonalLine(G, a)
I = Intersect(l, g)
m = Segment(I, G)
p = Circle(G, 0.3)
J, K = Intersect(p, a)
n = OrthogonalLine(K, a)
q = OrthogonalLine(J, a)
M = Intersect(q, g)
N = Intersect(n, g)
r = Segment(M, J)
s = Segment(N, K)
t = Circle(A, 0.5)
O = Intersect(t, a, 1)
c_1 = Circle(O, 0.5)
Q, R = Intersect(c_1, a)
d_1 = Circle(R, 0.5)
S, T = Intersect(d_1, a)
e_1 = Circle(T, 0.5)
U = Intersect(e_1, a, 2)
a_1 = OrthogonalLine(S, a)
b_1 = OrthogonalLine(R, a)
f_1 = OrthogonalLine(T, a)
g_1 = OrthogonalLine(U, a)
h_1 = Circle(U, 0.5)
V = Intersect(h_1, a, 2)
k_1 = Circle(V, 0.5)
W = Intersect(k_1, a, 2)
i_1 = OrthogonalLine(V, a)
j_1 = OrthogonalLine(W, a)
Z = Intersect(a_1, g)
A_1 = Intersect(b_1, g)
B_1 = Intersect(f_1, g)
C_1 = Intersect(g_1, g)
D_1 = Intersect(i_1, g)
E_1 = Intersect(j_1, g)
l_1 = Segment(Z, S)
m_1 = Segment(A_1, R)
n_1 = Segment(B_1, T)
p_1 = Segment(C_1, U)
q_1 = Segment(D_1, V)
r_1 = Segment(E_1, W)
s_1 = OrthogonalLine(D, g)
t_1 = OrthogonalLine(D, s_1)
F_1 = Point(t_1)
G_1 = Rotate(F_1, 30*°, D)
α = Angle(F_1, D, G_1)
a_2 = Line(D, G_1)
H_1 = Rotate(G_1, 120*°, D)
β = Angle(G_1, D, H_1)
b_2 = Line(D, H_1)
c_2 = Circle(D, 10)
I_1 = Intersect(c_2, b_2, 2)
J_1 = Intersect(c_2, a_2, 2)
d_2 = Segment(I_1, D)
e_2 = Segment(D, J_1)
K_1 = Intersect(c_2, s_1, 2)
L_1 = Intersect(c_2, s_1, 1)
f_2 = Segment(K_1, L_1)
g_2 = Circle(D, Segment[D, N])
h_2 = Circle(D, Segment[D, I])
k_2 = Circle(D, Segment[D, M])
p_2 = Circle(D, Segment[D, E_1])
q_2 = Circle(D, Segment[D, D_1])
r_2 = Circle(D, Segment[D, C_1])
s_2 = Circle(D, Segment[D, B_1])
t_2 = Circle(D, Segment[D, A_1])
c_3 = Circle(D, Segment[D, Z])
d_3 = Circle(D, Segment[D, C])
e_3 = Circle(D, Segment[D, B])
M_1 = Intersect(e_3, e_2, 1)
N_1 = Intersect(g_2, d_2, 1)
O_1 = Intersect(h_2, d_2, 1)
P_1 = Intersect(k_2, d_2, 1)
Q_1 = Intersect(p_2, d_2, 1)
R_1 = Intersect(q_2, d_2, 1)
S_1 = Intersect(r_2, d_2, 1)
T_1 = Intersect(s_2, d_2, 1)
U_1 = Intersect(t_2, d_2, 1)
V_1 = Intersect(c_3, d_2, 1)
W_1 = Intersect(d_3, d_2, 1)
i_2 = LineBisector(D, B)
Z_1 = Intersect(i_2, h)
f_3 = Circle(D, Segment[D, Z_1])
A_2 = Intersect(f_3, e_2, 1)
j_2 = Line(N_1, e_2)
l_2 = Line(O_1, e_2)
m_2 = Line(P_1, e_2)
n_2 = Line(Q_1, e_2)
a_3 = Line(R_1, e_2)
b_3 = Line(S_1, e_2)
g_3 = Line(T_1, e_2)
h_3 = Line(U_1, e_2)
i_3 = Line(V_1, e_2)
j_3 = Line(W_1, e_2)
k_3 = Line(M_1, d_2)
l_3 = Line(A_2, d_2)
B_2 = Intersect(j_3, l_3)
C_2 = Intersect(j_3, k_3)
D_2 = Intersect(i_3, k_3)
E_2 = Intersect(h_3, k_3)
F_2 = Intersect(g_3, k_3)
G_2 = Intersect(b_3, k_3)
H_2 = Intersect(a_3, k_3)
I_2 = Intersect(n_2, k_3)
J_2 = Intersect(m_2, k_3)
K_2 = Intersect(l_2, k_3)
L_2 = Intersect(j_2, k_3)
m_3 = Segment(W_1, C_2)
n_3 = Segment(C_2, M_1)
p_3 = Segment(L_2, N_1)
q_3 = Segment(K_2, O_1)
r_3 = Segment(J_2, P_1)
s_3 = Segment(I_2, Q_1)
t_3 = Segment(H_2, R_1)
a_4 = Segment(G_2, S_1)
b_4 = Segment(F_2, T_1)
c_4 = Segment(E_2, U_1)
d_4 = Segment(D_2, V_1)
e_4 = Segment(A_2, B_2)
f_4 = Circle(D, H)
M_2 = Intersect(f_4, f_2, 1)
g_4 = Line(M_2, e_2)
h_4 = Line(M_1, f_2)
N_2 = Intersect(g_4, h_4)
i_4 = Segment(M_2, N_2)
j_4 = Segment(N_2, M_1)
k_4 = Line(N_2, n_3)
l_4 = Line(M_2, n_3)
m_4 = Line(W_1, f_2)
n_4 = Line(C_2, f_2)
O_2 = Intersect(l_4, m_4)
p_4 = Line(O_2, m_3)
P_2 = Intersect(k_4, p_4)
q_4 = Segment(O_2, P_2)
r_4 = Segment(N_2, P_2)
s_4 = Segment(O_2, M_2)
t_4 = Segment(P_2, C_2)
a_5 = Segment(O_2, W_1)
b_5 = Line(V_1, a_5)
c_5 = Line(U_1, b_5)
d_5 = Line(T_1, c_5)
e_5 = Line(S_1, d_5)
f_5 = Line(R_1, e_5)
g_5 = Line(Q_1, f_5)
h_5 = Line(P_1, f_2)
i_5 = Line(O_1, f_2)
j_5 = Line(N_1, f_2)
k_5 = Line(B_2, a_5)
l_5 = LineBisector(O_2, W_1)
Q_2 = Intersect(l_5, a_5)
m_5 = Line(Q_2, q_4)
R_2 = Intersect(k_5, m_5)
S_2 = Intersect(m_5, d_5)
n_5 = Line(Q_2, d_2)
T_2 = Intersect(n_5, d_5)
p_5 = Circle(Q_2, 0.5)
U_2 = Intersect(p_5, a_5, 1)
V_2 = Intersect(p_5, a_5, 2)
q_5 = Line(U_2, n_5)
r_5 = Line(V_2, n_5)
W_2 = Intersect(e_4, b_4)
s_5 = Line(W_2, g_5)
t_5 = Line(R_2, d_2)
Z_2 = Intersect(e_5, r_5)
A_3 = Intersect(n_5, f_5)
B_3 = (-0.46468043700293316, 4.262961890991665)
c_6 = Conic(T_2, D_2, A_3, Z_2, B_3)
C_3 = Rotate(U_2, 30*°, O_2)
γ = Angle(U_2, O_2, C_3)
D_3 = Rotate(V_2, 330*°, W_1)
δ = Angle(D_3, W_1, V_2)
b_6 = Line(W_1, D_3)
E_3 = Intersect(b_6, n_5)
a_6 = Segment(O_2, E_3)
d_6 = Segment(E_3, W_1)
e_6 = Line(E_3, q_4)
F_3 = Intersect(e_5, e_6)
f_6 = Segment(F_3, C_2)
g_6 = Segment(P_2, F_3)
h_6 = Segment(E_3, F_3)
k_6 = Circle(Q_2, 0.3)
G_3, H_3 = Intersect(k_6, a_5)
i_6 = Line(G_3, n_5)
j_6 = Line(H_3, d_2)
I_3 = Intersect(i_5, i_6)
J_3 = Intersect(i_5, j_6)
K_3 = Intersect(n_5, j_5)
L_3 = Intersect(n_5, h_5)
M_3 = (2.2280018352390925, 2.912216391435695)
p_6 = Conic(L_3, I_3, K_3, J_3, M_3)
l_6 = Segment(K_3, M_2)
m_6 = Segment(K_3, D)
n_6 = Line(K_3, p_3)
q_6 = Line(F_3, s_4)
N_3 = Intersect(q_6, n_6)
r_6 = Segment(N_3, N_2)
s_6 = Segment(M_1, N_3)
O_3 = Intersect(s_6, i_4)
t_6 = Segment(N_3, O_3)
a_7 = Segment(O_3, M_1)
b_7 = Line(T_2, d_4)
c_7 = Line(A_3, b_4)
d_7 = Line(T_2, c_5)
e_7 = Line(A_3, e_5)
f_7 = Line(Z_2, d_2)
P_3 = Intersect(f_7, d_7)
Q_3 = Intersect(f_5, e_7)
R_3 = Intersect(f_7, f_5)
g_7 = Segment(C_2, P_3)
h_7 = Segment(P_3, R_3)
i_7 = Segment(E_2, R_3)
j_7 = Segment(M_2, O_2)
l_7 = Segment(K_3, N_3)
q_7 = Segment(M_1, D)
S_3 = Intersect(a_7, i_4)
poli3, k_8, m_9, s_7, m_{10}, d_9 = Polygon(K_3, M_2, S_3, M_1, D)
r_7 = Line(I_3, n_3)
t_7 = Line(J_3, e_4)
T_3 = Intersect(h_5, r_7)
U_3 = Intersect(j_5, r_7)
V_3 = Intersect(j_5, t_7)
W_3 = Intersect(h_5, t_7)
a_8 = Segment(T_3, U_3)
b_8 = Segment(U_3, V_3)
c_8 = Segment(V_3, W_3)
f_8 = Segment(W_3, T_3)
g_8 = Segment(I_3, J_3)
h_8 = Line(T_3, s_3)
i_8 = Line(U_3, h_8)
Z_3 = Intersect(p_6, n_5, 2)
A_4 = Intersect(p_6, i_8, 2)
B_4 = Intersect(p_6, n_5, 2)
j_8 = Line(V_3, i_8)
l_8 = Line(L_3, i_8)
n_8 = Line(B_4, i_8)
C_4 = Intersect(l_8, q_6)
p_8 = Line(C_4, f_2)
D_4 = Intersect(h_8, p_8)
E_4 = Intersect(p_8, i_8)
q_8 = Line(N_3, f_2)
r_8 = Line(D_4, q_6)
s_8 = Line(E_4, s_4)
F_4 = Intersect(q_8, r_8)
G_4 = Intersect(s_8, q_8)
H_4 = Intersect(q_6, i_8)
t_8 = Line(H_4, f_2)
I_4 = Intersect(t_8, s_8)
J_4 = Intersect(r_8, t_8)
K_4 = (3.5427235539796853, 3.6146329985345487)
c_9 = Conic(C_4, J_4, N_3, I_4, K_4)
a_9 = Segment(L_3, C_4)
b_9 = Segment(I_3, J_4)
e_9 = Segment(T_3, D_4)
g_9 = Segment(V_3, G_4)
h_9 = Segment(W_3, E_4)
f_9 = Segment(U_3, F_4)
k_9 = CircleArc(D, N_1, N)
p_9 = CircleArc(D, O_1, I)
q_9 = CircleArc(D, P_1, M)
r_9 = CircleArc(D, Q_1, E_1)
s_9 = CircleArc(D, R_1, D_1)
t_9 = CircleArc(D, S_1, C_1)
c_{10} = CircleArc(D, T_1, B_1)
d_{10} = CircleArc(D, U_1, A_1)
e_{10} = CircleArc(D, V_1, Z)
f_{10} = CircleArc(D, W_1, C)
g_{10} = CircleArc(D, B, M_1)
h_{10} = CircleArc(D, Z_1, A_2)
L_4 = Intersect(b_7, q_6)
M_4 = Intersect(q_6, c_7)
i_9 = Line(C_2, b_7)
j_9 = Line(P_3, c_7)
N_4 = Intersect(g_5, i_9)
l_9 = Segment(C_2, N_4)
n_9 = Line(N_4, r_8)
a_{10} = Line(M_4, g_5)
O_4 = Intersect(j_9, a_{10})
P_4 = Intersect(g_5, j_9)
b_{10} = Line(R_3, c_7)
Q_4 = Intersect(a_{10}, s_4)
i_{10} = Segment(O_4, Q_4)
j_{10} = Segment(N_4, P_4)
k_{10} = Segment(N_4, O_4)
l_{10} = Segment(E_2, O_4)
n_{10} = Segment(R_3, Q_4)
R_4 = Intersect(c_7, s_4)
p_{10} = Line(R_4, i_{10})
S_4 = Intersect(k_{10}, p_{10})
q_{10} = Segment(S_4, R_4)
r_{10} = Segment(L_4, M_4)
T_4 = (0.8595136193293196, 5.0002292032877405)
s_{10} = Conic(L_4, S_4, M_4, R_4, T_4)
t_{10} = Segment(A_3, M_4)
a_{11} = Segment(Q_2, T_2)
b_{11} = Segment(T_2, D_2)
c_{11} = Segment(A_3, L_3)
d_{11} = Segment(L_3, I_3)
e_{11} = Segment(E_3, T_2)
f_{11} = Segment(F_3, L_4)
g_{11} = Segment(M_4, C_4)
h_{11} = Segment(M, J)
U_4 = Intersect(t_3, n_3)
j_{11} = Segment(Q_4, U_4)
p_{11} = Circle(Q_1, 0.5)
W_4, Z_4 = Intersect(p_{11}, d_2)
l_{11} = Line(Z_4, s_3)
k_{11} = Line(Q_1, j_{11})
m_{11} = Line(P_4, l_{10})
C_5 = Intersect(m_{11}, r_4)
n_{11} = Segment(P_4, C_5)
q_{11} = Line(Z_4, k_{11})
r_{11} = Line(R_4, n_{11})
F_5 = Intersect(r_{11}, r_4)
s_{11} = Segment(R_4, F_5)
t_{11} = Circle(P_4, 0.3)
G_5, H_5 = Intersect(t_{11}, k_{11})
e_{12} = Line(H_5, l_{10})
f_{12} = Line(H_5, n_3)
g_{12} = Line(C_5, i_{10})
I_5 = Intersect(e_{12}, g_{12})
h_{12} = Segment(H_5, I_5)
J_5 = Intersect(q_{11}, f_{12})
i_{12} = Segment(R_4, J_5)
j_{12} = Line(I_5, g_{11})
k_{12} = Segment(C_5, I_5)
K_5 = Intersect(j_{12}, s_{11})
l_{12} = Segment(I_5, K_5)
k_7 = Segment(O_2, P_4)
m_7 = Segment(M_2, R_4)
n_7 = Segment(P_4, H_5)
p_7 = Segment(H_5, J_5)
d_8 = Segment(H_5, I_5)
poli1, h_{13}, p_{12}, c_{13}, i_{11} = Polygon(H_5, P_4, C_5, I_5)
poli2, r_{12}, j_{13}, h_{14}, i_{13}, k_{13} = Polygon(R_4, J_5, H_5, I_5, K_5)
e_8 = Segment(F_5, N_2)
m_8 = Segment(P_2, C_5)
poli5, p_{13}, o_2, p_{14}, c_{14} = Polygon(P_2, O_2, P_4, C_5)
poli6, f_{13}, r_{13}, m_{12}, n_{12} = Polygon(F_5, R_4, M_2, N_2)
q_{12} = Segment(P_3, T_1)
s_{12} = Segment(R_1, R_3)
t_{12} = Segment(H_5, F_2)
a_{13} = Segment(J_5, G_2)
poli7, o_1, p_{15}, h_{15}, j_{14}, r_{14}, m_{13}, b_{13}, d_{13}, w_1, e_{13} = Polygon(O_2, P_4, H_5, J_5, R_4, M_2, B_4, D, W_1, E_3)
g_{13} = Segment(D_4, F_4)
l_{13} = Segment(F_4, G_4)
n_{13} = Segment(E_4, D_4)
q_{13} = Segment(E_4, G_4)
s_{13} = Segment(D_2, S_4)
V_4 = Point(g)
t_{13} = CircleArc(D, Z_4, V_4)
A_5 = Point(poli6)
a_{14} = Line(Z_4, A_5)
B_5 = Intersect(p_7, a_{14})
b_{14} = Segment(H_5, Q_1)
d_{14} = Segment(B_5, Z_4)
e_{14} = Line(Z_4, s_3)
D_5 = Intersect(e_{14}, e_4)
E_5 = Intersect(e_{14}, n_3)
f_{14} = Segment(E_5, Z_4)
g_{14} = Segment(F_5, E_5)
i_{14} = Segment(I_5, I_2)
M_5 = Intersect(t_{13}, g)
k_{14} = OrthogonalLine(M_5, a)
O_5 = Intersect(k_{14}, a)
l_{14} = Segment(M_5, O_5)
Q_5 = Intersect(r_1, a)
S_5 = Intersect(r_1, g)
poli8, s_{14}, m_{14}, o_5, q_{14} = Polygon(S_5, M_5, O_5, Q_5)
L_5 = Intersect(g, f)
N_5 = Intersect(a, f)
P_5 = Intersect(g, h)
R_5 = Intersect(a, h)
poli4, l_{15}, s_{15}, q_{15}, n_{14} = Polygon(L_5, S_5, Q_5, N_5)
poli9, m_{15}, p_{16}, r_{15}, o_3 = Polygon(M_5, P_5, R_5, O_5)
a_{12} = Segment(L_5, S_5)
b_{12} = Segment(S_5, Q_5)
c_{12} = Segment(Q_5, N_5)
d_{12} = Segment(N_5, L_5)
t_{14} = Segment(M_5, P_5)
a_{15} = Segment(R_5, P_5)
b_{15} = Segment(R_5, O_5)
c_{15} = Segment(O_5, M_5)
T_5 = Point(poli7)
d_{15} = Segment(T_5, J_1)
e_{15} = Circle(T_5, 4)
U_5 = Intersect(e_{15}, d_{15})
f_{15} = Segment(T_5, U_5)
g_{15} = Circle(T_5, 5)
V_5, W_5 = Intersect(g_{15}, f_2)
Z_5 = Intersect(g_{15}, f_2, 2)
i_{15} = Segment(V_5, T_5)
j_{15} = OrthogonalLine(T_5, g)
k_{15} = Circle(T_5, 3)
A_6 = Intersect(k_{15}, j_{15}, 1)
n_{15} = Segment(T_5, A_6)
o = Perimeter(poli7)
u = Distance(g, f)
v = Distance(g, a)
w = Distance(h, i_4)